home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / MASKSUNB.DSK / ROOM 47.0.txt < prev    next >
Text File  |  2014-09-09  |  937b  |  70 lines
  1. .I N<100
  2. .E I N:200
  3. .T S N=149
  4. .T S N0(47)=7
  5. .S N=N++
  6. ._ P
  7. .!CLRT
  8. .P "You are at a branch in the tunnel.
  9. .I GE(6):2
  10. .T P "Passages go to the left, right,
  11. .I GE(6):7
  12. .T P "Passages go forward, to the right,
  13. .I GE(6):6
  14. .T P "Passages go forward, to the left,
  15. .P "and back behind you.
  16. !LOOK
  17. .J -10
  18. %L...
  19. .!CLRT
  20. .I GE(6):7
  21. .T J +6
  22. .I GE(6):2
  23. .T S N0(47)=7
  24. .E S N0(47)=2
  25. .P "You turn down the left passage.
  26. .!GTON
  27. .!INVD
  28. %R...
  29. .!CLRT
  30. .I GE(6):6
  31. .T J +6
  32. .I GE(6):2
  33. .T S N0(47)=6
  34. .E S N0(47)=2
  35. .P "You turn down the right passage.
  36. .!GTON
  37. .!INVD
  38. %FW..
  39. .!CLRT
  40. .I GE(6):2
  41. .T J +6
  42. .I GE(6):6
  43. .T S N0(47)=7
  44. .E S N0(47)=6
  45. .P "You continue forward.
  46. .!GTON
  47. .!INVD
  48. %BK..
  49. .!CLRT
  50. .P "You turn around and trudge back down
  51. .P "the passage.
  52. .S GE(6)=N0(47)
  53. .3 ROOM 47.0 
  54. .!TUNL
  55. !GTON
  56. .S GE(6)=N0(N)
  57. .I GE(6)>19
  58. .T S N0(47)=N0(47)+10
  59. .T J +3
  60. .I GE(6)>9
  61. .T S N0(47)=N0(47)+20
  62. .I N>160
  63. .T I TL(23):254
  64. .T S GE(6)=0
  65. .T 3 ROOM 49.0 
  66. .E 3 ROOM 47.0 
  67. .!TUNL
  68. @@@@@
  69.  
  70.